home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / FILESORT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.0 KB  |  49 lines
  1. 10  ' **********************
  2. 20  ' **     FILESORT     **
  3. 30  ' **********************
  4. 40  '
  5. 50  CLEAR
  6. 60  SCREEN 0,0,0,0
  7. 70  CLS
  8. 80  KEY OFF
  9. 90  FILES
  10. 100  DIM A$(114)
  11. 110  SP$ = SPACE$(13)
  12. 120  PRINT
  13. 130  PRINT
  14. 140  '
  15. 150  PRINT "Reading from the screen ...
  16. 160     FOR ROW = 1 TO 19
  17. 170     IF A$(POINTER) = SP$ THEN 240
  18. 180        FOR COLUMN = 1 TO 78
  19. 190        LOCATE ROW,COLUMN,1,0,6
  20. 200        IF A$(POINTER) = SP$ THEN 230
  21. 210        IF COLUMN MOD 13 = 1 THEN POINTER = POINTER + 1
  22. 220        A$(POINTER) = A$(POINTER) + CHR$(SCREEN(ROW,COLUMN))
  23. 230        NEXT COLUMN
  24. 240     NEXT ROW
  25. 250  '
  26. 260  LOCATE CSRLIN + 3,1,0,7,7
  27. 270  COUNT = POINTER - 1
  28. 280  '
  29. 290  PRINT "Sorting alphabetically  ...
  30. 300  PRINT
  31. 310     FOR I = 1 TO COUNT - 1
  32. 320     LOCATE CSRLIN,1
  33. 330     PRINT A$(I);
  34. 340        FOR J = I + 1 TO COUNT
  35. 350        IF A$(I) > A$(J) THEN SWAP A$(I),A$(J)
  36. 360        NEXT J
  37. 370     NEXT I
  38. 380  '
  39. 390  ' Print the sorted file names
  40. 400  CLS
  41. 410  K = INT((COUNT-1)/6+1)
  42. 420     FOR I = 1 TO K
  43. 430        FOR J = 0 TO 5
  44. 440        PRINT A$(I+J*K);
  45. 450        NEXT J
  46. 460     PRINT
  47. 470     NEXT I
  48. 480  LOCATE CSRLIN,1,1
  49.